home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Run Magazine ReRun 1984 Half 1
/
rerun-1984-01-06-side-a.d64
/
functkey feb p70
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
2KB
|
73 lines
100 t = peek(55) + 256*peek(56)
110 poke 56, peek(46)+2
120 poke 52, peek(56)
130 print "[147]function keys":print
200 dim f$(12)
210 f$(1) = "list "
220 f$(2) = "load"+chr$(34)
230 f$(3) = "run"
240 f$(4) = "save"+chr$(34)+"@:"
250 f$(5) = "print peek( )[157][157][157][157][157][157]"
260 f$(6) = "open 15,8,15,"+chr$(34)
270 f$(7) = "print fre(0)"
280 f$(8) = "close 15"
290 f$(9) = "goto "
300 f$(10) = "gosub "
310 f$(11) = "return"
320 f$(12) = "poke "
330 for i = 1 to 12
340 print "f" + right$(str$(i),len(str$(i))-1) + " = ";
345 print chr$(34) + f$(i) + chr$(34)
350 next i
400 l = 0
410 for i = 1 to 12
420 l = l + len(f$(i))
430 next i
435 if l > 231 then print "strings too long": goto 800
440 sm = t - 120
450 ss = t - l - 144
500 pp = ss: sp = ss + 12
510 for i = 1 to 7 step 2: gosub 1000: next i
520 for i = 2 to 8 step 2: gosub 1000: next i
530 for i = 9 to 12: gosub 1000: next i
600 for i = sm to sm+119
610 read b
611 su = su + b
612 c = c + 1
613 if c<>19 and i<>(sm+119) then 620
614 read ch
615 if ch = su then c=0: su=0: goto 620
616 print: print "data statement error"
617 print "in line"; peek(63) + 256*peek(64)
618 goto 800
620 poke i, b
630 next i
700 poke 2, sm/256
710 poke 1, sm-256*peek(2)
720 poke 252, ss/256
730 poke 251, ss-256*peek(252)
740 poke 649, 9
750 poke 55, peek(251): poke 56, peek(252)
760 poke 51, peek(251): poke 52, peek(252)
770 sys 0
780 new
800 poke 56, t/256
810 poke 55, t - 256*peek(56)
820 end
1000 poke pp, sp-ss: pp = pp+1
1005 if f$(i) = "" then 1060
1010 for j = 1 to len(f$(i))
1030 poke sp, asc(mid$(f$(i),j,1))
1040 sp = sp+1
1050 next j
1060 poke sp, 0
1070 sp = sp + 1
1080 return
9000 data120,165,2,141,21,3,165,1,24,105,21,144,3,238,21,3,141,20,3,1341
9010 data88,96,165,198,208,92,165,254,240,9,169,0,133,254,164,253,24,144,56,2712
9020 data162,3,169,63,197,197,240,13,56,233,8,202,16,246,169,255,141,128,2,2500
9030 data48,58,134,253,162,0,173,141,2,201,1,208,2,162,4,201,2,208,2,1962
9040 data162,8,138,24,101,253,205,128,2,240,30,141,128,2,168,177,251,168,162,2488
9050 data0,177,251,240,17,157,119,2,200,232,134,198,224,9,208,241,132,253,169,2963
9060 data1,133,254,76,191,234,889